Imports System
Module qs


    ' 通过 return 响应可以,
    ' 通过 函数名响应也可以
    Function add(ByVal a As Integer, ByVal b As Integer) As Integer
        ' return a + b
        add = a + b
    End Function

    Sub Main()
        Dim a As Integer = 1
        Dim b As Integer = 2
        Dim sum as Integer = add(a,b)
        Console.WriteLine("{0} + {1} = {2}",a,b,sum)
        Console.ReadKey()
    End Sub 

End Module
